home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr26 / pwrutls2.zip / MARQUEE.BAS < prev    next >
BASIC Source File  |  1993-06-03  |  839b  |  22 lines
  1. Delay% = 30000: CLS : Blanks$ = SPACE$(80)
  2. LOCATE 10, 1: PRINT "Enter the message to display (79 chrs max, no commas): "
  3. LOCATE 12, 1: INPUT "", Msg$: CLS : StrLen% = LEN(Msg$):
  4. DO UNTIL INKEY$ <> ""
  5.     FOR VPos% = 80 TO 1 STEP -1
  6.         IF VPos% + StrLen% > 80 THEN
  7.             Display$ = LEFT$(Msg$, (81 - VPos%))
  8.             LOCATE 12, VPos%: PRINT Display$
  9.         ELSEIF VPos% = 1 THEN
  10.             FOR Ptr% = StrLen% TO 1 STEP -1
  11.                 Display$ = RIGHT$(Msg$, Ptr%): LOCATE 12, 1: PRINT Display$
  12.                 FOR Slow% = 1 TO Delay%: NEXT Slow%
  13.                 LOCATE 12, 1: PRINT Blanks$
  14.             NEXT Ptr%
  15.         ELSE LOCATE 12, VPos%: PRINT Msg$
  16.         END IF
  17.     IF INKEY$ <> "" THEN SYSTEM
  18.     FOR Slow% = 1 TO Delay%: NEXT Slow%
  19.     LOCATE 12, 1: PRINT Blanks$
  20.     NEXT VPos%
  21. LOOP
  22. SYSTEM